unit IDCardForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uCard;

type



  TfrmIDCardForm = class(TForm)
    lblInfo: TLabel;
    lblCard: TLabel;
  private
    { Private declarations }
    
    
  public
    { Public declarations }
    procedure beforeReadCard(sender: TObject);
    procedure OnReadCard(sender: TObject; CardRead: Int64);
    procedure AfterReadCard(Sender: TObject);
  end;



implementation

{$R *.dfm}

{ TfrmIDCardForm }

procedure TfrmIDCardForm.AfterReadCard(Sender: TObject);
begin
  lblInfo.Visible := True;
  lblCard.Visible := False;
  lblCard.Caption := '';
  Close;
end;

procedure TfrmIDCardForm.beforeReadCard(sender: TObject);
begin
  lblInfo.Visible := True;
  lblCard.Visible := False;
  lblCard.Caption := '';
  //ShowModal;
end;

procedure TfrmIDCardForm.OnReadCard(sender: TObject; CardRead: Int64);
begin
  lblInfo.Visible := False;
  lblCard.Visible := True;
  lblCard.Caption := IntToHex(CardRead,10);
  
end;

end.
